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RRR RRR 
RRR RRR 
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| **F ILE**1D©*BASCMPAPP 
AAAAAA SSSSSSSS cccccccc MM MM = 6PPPPPPPP ALAGAR PPPPPPPP PPPPPPPP 
68888888 AAAAAA SSSSSSSS cccccccc MM MM = 6PPPPPPPP ABAAAA PPPPPPPP PPPPPPPP 
88 BB AA AA SS cc MMMM MMMM «OPP PP AA AA PP PP PP PP 
6B BB AA AA SS cc MMMM PP PP AA AA PP PP PP PP 
8B BB AA AA SS cc MM 6mm UMM OPP PP AA AA PP PP PP PP 
88 BB AA AA SS cc MM 66MM OMM OPP PP AA AA PP PP PP PP 
BBBBBBBB AA AA SSSSSS cc MM MM = PPPPPPPP Aa AA PPPPPPPP PPPPPPPP 
BBBBBBBB AB AA SSSSSS cc MM MM PPPPPPPP Aa AA PPPPPPPP PPPPPPPP 
88 BB AAAAAAAAAA ss CC MM MM PP AAAAAAAAAA PP PP 
8B BB AAAAAAAAAA SS CC ala! MM PP AAAAAAAAAA PP PP 
8B BB AA AR SS CC MM MM PP Aa AA PP PP cece 
88 BB AA AA ss cc MM MM PP Aa AA PP PP eoee 
68888888 Aa AA SSSSSSSS cccccccc MM MM PP AG AA PP PP cece 
BBBBBBEB AG AA SSSSSSSS cccccccc MM MM PP Aa AA PP PP cess 
LL IIII11 SSSSSSSS 
LL 11111 SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] S$ 
LL I] $s 
tL . I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] $$ 
LL I] $$ 
LL I] $s 
LLLLLLLLLLE 11111 SSSSSSSS 
LLLLLLLLLL M1111 SSSSSSSS 
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BASSCMP_APPROX -Sep-19 8: AX-11 Bliss-32 v4.0 P 
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MODULE BASSCMP_APPROX Mu : 
wee *1-006" ! File: BASCMPAPP.B32 Edit: PLL1607 


BEGIN 

' 

i eeeeeereneeeeeeneeeeeceneeeneerrerererereeeeereereereeeeerereceereeeeeeeeeee 
i 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 6 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


:* THIS SOFTWARE IS tee UNDER A LICENSE AND =I ff USED AND cones 
:* ONLY IN ACCORDANCE WITH THE ron OF SUCH LICENSE ow * ae THE 
'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:: Fanustehaie” NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
: SORPORAT ibe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


is DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


Ssessssss 
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at na nn an a a a a a a i i ns a a a a a ht SS Ss Ss Ss Ss Ss Ss Ss SS SS 4 4 OOO 
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+¢ 
FACILITY: BASIC=PLUS-2 Miscellaneous 
ABSTRACT: 


WN "SO OCONONEWUN “OOOBVNOUFS UNO 


WWIWANAW 


This module implements the BASIC approximate compare function, 
which indicates whether or not its two arguments will print the same. 


PROPORoPoTURononoty — es 
SEAE 


SsSssssoseses 


' 

i 

i 

i 

i 

i 

i 

i 

$ ENVIRONMENT: VAX-11 User Mode 

29 ppee AUTHOR: John Sauter, CREATION DATE: 01-MAR-1979 
4 BReg i MODIFIED BY: 
4 004 i 
44 ng: i 1-001 - Original. JBS 01-MAR-1979 
45 045 i J. § = Change from JSB to CALL entry points. JBS 21-MAR-1979 
46 pose i 1-003 = Reverse the result definition, so TST BEQL will work. JBS 25-MAR-1979 
47 004 i 1-004 = Use the new conversion routines. JBS 11-JUL-1979 
48 0048 i 1-005 = Add entry points for .g and h floating. PLL 26-Oct-81 
$8 seb it 1-006 = Fix calls to conversion routines in g and h routines. 
51 bos) 
52 0052 '<BLF /PAGE> 


Be Be Se Se Se Se Se Se Se Se Ge Be Ge Se Se Se Ge Fe Se Be Ge Ge Ge Ge Se Ge Ge Ge Se oe Ge Ge Se Se Ge Fe Se oe Se Se Se Se Se Se Se Ge Ge Se Se Se Se ee Se Se Se Se ee 


4 


95 


SBRLSARAVISSOVEAE 


BD ao td ee a ts 4 


BASSCMP_APPROX 


"7 
16-Sep-1984 00:08:28 — YAX=11 BLiss-32_v4.0- 
1-88-1986 f1:5e:67 — EBASRIL SRETBASCMPAPP 


SWITCHES: 
SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 


' 

i LINKAGES: 
; NONE 
i 

i 


WN —OOONOUEw 


SESSSCOTOTS 


TABLE OF CONTENTS: 


oO 


a58e 


FORWARD ROUTINE 
BASSCMPF 


BASSCVT~OUT"G"G, 


Convert gfloat to text 
Convert Afloat to text 
signals fatal error 


BASSCVT_OUT_H-G, 
BASSS$STOP :~NOVALUE; 


SS2VF 


'¢ 
: The following are the error codes used in this module. 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
44 1 S$C APP, ! Compare floating values 
1 BASSCMPD_APP, ! Compare double values 
0070 1 BASSCMPG_APP, ! Compare 9 floating values 
ta ' BASSCMPH_APP; ! Compare h floatine values 
$078 1! 
0074 1 ! INCLUDE FILES: 
0075 1! 
0076 1 
Bore ! REQUIRE ‘RTLIN:RTILPSECT’; ! Macros for defining psects 
0178 : LIBRARY ‘*RTLSTARLE'; ! System definitions 
0175 1! 
0176 1 ! MACROS: 
0177 1! 
0178 1! NONE 
0179 1! 
0180 1 ! EQUATED SYMBOLS: 
0181 1! 
34 a NONE 
0183 1! 
He: 1 ! PSECTS: 
0185 1! 
Biss } DECLARE _PSECTS (BAS); ! Declare psects for BAS$ facility 
pies 1 ! OWN STORAGE: 
0189 1! 
190 1! NONE 
191 1! 
136 1 ! EXTERNAL REFERENCES: 
0193 1! 
0194 1 
3132 1 EXTERNAL ROUTINE 
! BASSCVT_OUT_D_G Convert double to text 
1 
1 
1 
1 
1 
1 
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ooo 
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Fa) 


eee APPROX 


EXTERNAL LITERAL 


a os 


BAS$K_PROLOSSOR; 


RA 
Srssert9Be 00:08:28 Yate Bliss tz users 


! Program lost, sorry 


$251 
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oe 
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8 
CMP_APPROX 1-sep-1 : 90: 98:2 ett Bliss-32 V4.0-74 
14-Sep-1 25434 BASRTL.SRC JBASCMPAPP .B52;1 


4 
4 
poneere floating values 
$ 


oo 


irst value to compare 


GLOBAL = BASSCMPF _APP ( 
L2° econd value to compare 


> 9 4 


++ 
FUNCTIONAL DESCRIPTION: 
Compares two floating values. If the values will PRINT the same, 
they are considered “approximately equal’’. This function is useful 
in Computer Assisted Education applications, when one value is 
computed and another is read from the terminal. If the two values 
print the same we do not want to say: ‘Wrong! You typed x, correct 
answer is x. 
CALLING SEQUENCE: 
PUSHL VAL2 
VAL1 
Farts 4% BASSCMPF _APP 
BEQL 1$ ; Branch if VAL1 == VAL2 
FORMAL PARAMETERS: 


] 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

' 

: VALI.rf.v The first value to compare 
VAL2.rf.v The second value to compare 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
ie 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


1 = not approximately equal, 
0 = approximately equal. 


SIDE EFFECTS: 
NONE 


NAMES WN HO ODNOA UNE WIN $9 ODNAUE AN @ OC ODNOU EW O0O 


BEGIN 


BUILTIN 
CVTFD; 


MEUM —OOGNO VE WN OO OONO UE WN 0 DOONAN EWN “OOOO UES WN OOOO 


PDPEAEQ®D_Y Pn & ELE EEE PAW 


LOCAL 
D_VALUE : VECTOR (2) 
DSC1_: BLOCK C8 BYTE) 
BUF1 : VECTOR (14, BYTE), 


SOOOSOSOSSOOSOSOSOSSOSOSOOCOOOCOO OOOO SSO OOOO SOSOOSOOOCOOOO OOOO OOOOOOOOOOO 
PAED®_EO PAP & Be BB BE EE AAAI AIS PUPIPPIPNUNIDY Se 


PIPIPIAINIPDNDPNYNNININININYAINYNIAINYIAININININPI AIP NIPINIPINPIPIPYUPINYINIPIPYIPIPPPUPOPUPPYPIPYPUNIPUPPNPPY 


PIP IPIP PIPPIN IN at ast at st at st at at a 


NNO 
w~SSS2F 
Fwn 0 OOO fwihvs—0 0@ 


o 


| : 8 
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5 
BASRTL.SRCJBASCMPAPP B32; 1 (3) 
3 173 65 DSC2 : BLOCK (8, BYTE] 
3 ie ang: : VECTOR Py. BYTé}, 
3 (175 6 RET_LENGTH; 
_e 178 6 
Het: an 
\3 178 i 1 wane the formatter for each value to get two character strings. 
'3 180 4 DSC1 CDSC$W_LENGTH) = 14; 
> (18) 7 DSC1 COSCSB-DTYPE] = DSC$K_DTYPE_T; 
: 18¢ 74 DSC1 CDSCSB-CLASS) = DSCSK-CLASS"S; 
4 75 DSC1 COSCSA-POINTER] = BUFT; 
; 184 26 CVTFD (VAL1, D_VALUE [0)); 
3; (185 7 BASSCyT OUT_D.G (D_VALUE, 0, RET_LENGTH, DSC1, 0); 
; 186 28 , _ DSC1 COSCSWILENGTH] = .RET_CENGTA; 
> 188 280 " DSC2 CDSCSW_LENGTH] = 14; 
; 189 0 81 DSCe CDSCSB-DTYPE] = OSC$K_DTYPE_T; 
; 190 02 é DSC2 CDSCSB-CLASS) = DSCSK-CLASS-S; 
; 191 028 DSCo CDSCSA_POINTER] = BUF2; 
; 198 0284 CVTFD (VAL2, D_VALUE (0)); 
: #19 0285 BASSCVT_OUT_D G (D_VALUE, 0, RET_LENGTH, DSC2, 0); 
; 19% 0286 ,, pste COSCSWILENGTH] = .RET_LENGTA; 
; bs 0988 If the two strings are equal, the values are approximately equal. 
: 198 0290 2 
; 199 9291 IF (.DSC1 CDSC$W_LENGTH] NEQU .DSC2 CDSC$W_LENGTH]) THEN RETURN (1); 
; 201 0998 IF (CHSEQL (.RET_LENGTH, .DSC1 CDOSCSA_POINTER], .RET_LENGTH, .DSC2 CDSCS$A_POINTER])) THEN RETURN (0); 
; 208 0295 RETURN (1); 
3; 204 0296 1 END; ! end of BASSCMPF_APP 
-TITLE BASSCMP_APPROX 
-IDENT \1=006\ 
.EXTRN BASSCVT_OUT_D_G 
.EXTRN BAS$CVT"OUT-G_G 
.EXTRN BASSCVT-OUT"H~G 
-EXTRN BASS$S$STOP, BASS$K_PROLOSSOR 
.PSECT _BASSCODE.NOWRT, SHR, PIC,2 
001¢ 00000 .ENTRY BASSCMPF_APP, Save R2,R3,R4 : 0208 
54 000000006 00 9 90002 MOVAB BASSCVT_OUT_D_G, R4 : 
5€ C C2 0000 SUBL2 #60, SP F 
C AE O10E000E BF BO 0000¢ MOVL  #17694734, DSC1 i 0372 
0 AE 1¢ AE 9E 00014 MOVAB BUFI, DSC1+4 : 027 
4 AE 04 AC 56 90019 CVTFD VAL1, D_VALUE : 0276 
7E p4 001 CLRL = = (SPS > 0277 
30 AE 9F 000 PUSHAB DSC1 ; 
08 AE 9F 000 PUSHAB RET_LENGTH ; 
7 p4 999 6 CLRL —s_ = (SP) ; 
44 AE 9F 00028 PUSHAB D_VALUE ; 
64 05 FB 00028 CALLS #5, BAS$SCVT_OUT_D_G ; 
2c AE 6E BO 0002E MOVW  RET_LENGTH, “DSCT : 0278 


D 
(a gt tne 18-se0-1984 99:08:25 FBASRtu See daAScMPApy 692: 1 


iH aE cg gf 0 ok mov. ei? 7494734, sc2 
34 OE 8 AC 4 F CVTFD 74 D_VALUE 
7E D4 00044 CLRL «= SPS 
18 AE 9F 00 46 PUSHAB DSC2 
08 AE OF 0 4 PUSHAB RET LENGTH 
7E oe 4C CLRL soa 
44 aE F 00 af PUSH 
64 0 FB 005 CALLS ME cut _OUT_D_G 
16 AE 6— BO 00054 MOVW i LENG GTH, ~DSC2 
| 16 AE 2c aE 81 9058 cmPY , DSC2. 
18 «BE 30 BE 6E é dose CMPC3 Uy ema, aDSc1+4, aDsc2+4 
04 0065 BEQL 
50 1D 0067 1$: MOVL #1, RO 
04 0006A RET 
50 Dé G0068 2%: CLRL = RO 
04 00060 RET 


; Routine Size: 110 bytes, Routine Base: _BASSCODE + 0000 


s 203 0297 #1 


a 
‘ester arrnos 1$-se0-}984 90:08:28 yanetT BLisgcsz we.0c74g 


3 7 38 1 GLOBAL ay Pe BASSCMPD_APP ( ! Compare double values 
3 1 VAL1_LO, ' First value to compare 
3 1 VAL1_HI, VAL2_L0, ! Second value to compare 
13 9 1 4 VAL2-HI5 = 

ia ay § 1 

13 \§ 1 tee 

3 Hs : ! FUNCTIONAL DESCRIPTION: 

EK 15 4] & Compares two double values. If the values will PRINT the same, 
3 1 O07 7! they are considered ‘‘approximately qque} This function is useful 
3 1 4 1! in Lonputer Assisted Education applications, when one value is 
; 09 1! computed and another is read from the terminal. If the two values 
wa, 0 1! print the same we do not want to say: ‘Wrong! You typed x, correct 
3 1 : answer is x." 

; 18 1 ' CALLING SEQUENCE: 

3 0314 1! 

3 4 7” 2s MOVD VAL@. -(SP) 

; 5 18 1! MOVD VAL =(SP) 

i 926 7 1: CALLS #4, BASSCMPD_APP 

; + 1! TSTL RO 

3 : ih ! BEQL 1$ : Branch if VAL1 == VAL2 
; %0 1 | FORMAL PARAMETERS: 

: 3 8 § 1: VAL1.rd.v The first value to compare 
3 e 0 : : } VAL2.rd.v The second value to compare 
: 235 6 1} IMPLICIT INPUTS: 

3 0 1! 

: 538 0359 1 | we. 

: 239 0330 1 | IMPLICIT OUTPUTS: 

; 260 83 1 ey 

ola ae i 

; $08 0334 1 ! ROUTINE VALUE: 

3 rt} O32 : COMPLETION CODES: 

: 7s 0339 1: 1 = not approximately equal, 
; “44 tts ' 0 = approximately equal. 

> 249 0340 1 | SIDE EFFECTS: 

: 250 Bee) 1! 

; 33 306 : NONE 

; 26 Saez 1 ine 

; 254 0345 1 

3 F 0347 BEGIN 

: 257 348 LOCAL 

: 258 034 D_VALUE : VECTOR (2) 

: 259 50 DSC1 : BLOCK (8, BYTE) 

: 260 51 BUF1 : VECTOR (14, BYTE), 

: 261 3 Ds¢g : BLOCK (8, BYTE) 

: 62 5 BUF2 : VECTOR (14, BYTE), 

; 26 0354 RET_LENGTH; 


F 8 
ASSCMP_APPROX 16=Sep-1984 00:08:2 AX-11 Bliss-32 V4.0-74 Pp 
tit e805 1880 90:08 :2 BASRTL.SRCJBASCMPAPP .B32;1 et 
; ‘ 16 
; ; Call the formatter for each value to get two character strings. 
3 DSC1 [DSCSW_LENGTH] = 14: 
13 DSC1 DSC$B-DTYPE] = DSC$k_DTYPE_T; 
; DSC1 COSCSB“CLASS] = DSCSK“CLASS“S: 
3 ¢ DSC1 CDSCSA-POINTER] = BuUFT; 
3 D_VALUE 9) = ,VAL1_LO; 
E 5 Basse ii b 6th oatie 0, RET_LENGTH, DSC1, 0) 
; , osct LOSCSU-LENGI HI = ,RET_CENGTA; r 
; § DSC2 CDSCSW_LENGTH) = 14; 
3 DSC DSCSB_DTYPE, = DSCS$K_DTYPE_T; 
; 0370 DSCe CDSC$B-CLASS) = DSCSK-CLASS-S; 
3 8 71 DSC2 CDSCSA_POINTER) = BUF2; 
; re D_ VALUE £0) = -VALZ_LO; 
; 037 D-VALUE (1) = .VALO-HI: 
; 0374 BASSCVT_OUT_D_G (D_VALUE, 0, RET_LENGTH, DSC2, 0); 
; p if ,,  pste COSCSWILENGTH] = .RET_CENGTA; 
é ; e two str ngs are equal, the values are approximately equal. 
0377 i if the t : L, the val i l l 
: 0379 
; 0380 IF (.DSC1 CDSCSW_LENGTH] NEQU .DSC2 COSC$W_LENGTH]) THEN RETURN (1); 
; SH) IF (CHSEQL (.RET LENGTH, .DSC1 CDOSCSA_POINTER], .RET_LENGTH, .DSC2 CDSCSA_POINTER])) THEN RETURN (0); 
; 0384 RETURN (1); 
: 0385 END; ' end of BASSCMPF_APP 
001¢ 00000 .ENTRY BASSCMPD_APP, Save R2,R3,R4 : 
54 000000006 90 9E 00002 nOVAB BASSCVT_OUT_D_G, R4 : 
£ C C2 00009 SUBL2 #60, SP : 
2 AE O10E000E BF D0 0000C MOVL  #17694734, DSC1 : 0 
0 AE 1€¢ AE 9E 00014 MOVAB ®BUFI, DSCI+4 : 0 
34 AE 04 AC 7D 00019 MOVO  VAL1_LO, D_VALUE : 0 
7E 04 0001 CLRL = = (SPT : 0 
30 AE 9F 000 PUSHAB DSC1 : 
8 AE 9F 000 PUSHAB RET_LENGTH ; 
7E p4 00 6 CLRL = (SP) : 
44 AE 9F 000 PUSHAB D_VALU : 
64 05 FB 00028 CALLS #5, BAS$SCVT_OUT_D_G ; 
2c oA 6€ BO 000 E MOVW = RE ENGTH, DSCT : 
| 14 AE O1OEOODE BF BO 000 MOVL  #17894734, DSC2 : 
18 AE 04 AE 99E 0003A MOVAB BUF2, DSCO+4 : 
34 AE OC AC 7D 0003F MOVQ VAL2_LO, D_VALUE ; 
7E D4 00044 CLRL = = (SPY : 
18 AE 9F 0046 PUSHAB DSC2 ; 
08 AE 9F 0004 PUSHAB RET LENGTH ; 
7E D4 0004C CLRL = (SP) ; 
44 AE 9F OO04E PUSHAB D_VALUE F 


BASSCMP_APPROX 


3 Routine Size: 


64 
146 «AE 
16 «AE 2c 


18 BE 30—Ss«éBE 


“ 

oO 
S LPRSRRS 
SRP S se 


110 bytes, Routine Base: _BASSCODE 


+ 006€E 


4 


cooLr-— 


f 
$3 18: 


6A 
6B 2%: 


06D 


8 
b-sep-1984 90:98:28 eth Bliss-32 v4.0-74 


BASRTL.SRCJBASCMPAPP.B32;1 
#5, BASSCVT_OUT_D_G 
REf_LENGTH, DSC2 
CT, DSc2 
RETLLENGTH, aDSC14+4, aDSC2+4 
#1, RO 
RO 


j 


0385 


H 8 
Tobe -Arrnon Mex$ep-198e Piise:e? — EBASRIL SRE SBASCMPAPP-B82;1 


GLOBAL ney ie BASSCMPG_APP ( ! Compare g floating values 
VAL1_LO, ! First value to compare 
ve ett VAL2.L0, ! Second value to compare 
VAL2"HIS = 
ee 
| ! FUNCTIONAL DESCRIPTION: 
| 


Compares two 
they are sone éered , 


floating values. If the values will PRINT the same 
approximately equal". This function is useful 


in Computer Assisted Education applications, when one value is 
computed and another is read from the terminal. If the two values 
print the same we do not want to say: “Wrong! You typed x, correct 
answer is x. 

CALLING SEQUENCE: 
MOVG VAL2, =(SP) 
MOVG VAL1, =(SP) 

CALLS #4, BASSCMPG_APP 

TSTL RO 
BEQL 1$ ; Branch if VAL1 == VAL2 

FORMAL PARAMETERS: 


VALI.rg.v The first value to compare 
VAL2.rg.v The second value to compare 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


1 = not approximately equal, 
= approximately equal. 


SIDE EFFECTS: 


OOCCCOCOCOCCCCOoOO 
ooo 


w 


LESREVLSSELESE 


Eww GAG a wa ee anette COOCCCOCO 
=SOe OM BVI OOHNO NEW OODNAME WU HODR IRAP OUI S 
PIRI PIPPIN at art rt nt rt ed od od 


Oe ee ee ee te te te 


AL 
G_VALUE : VECTOR (2) 
DSC1_: BLOCK (8, BYTE) 
BUF1 : VECTOR (14, B 
DSC2 : BLOCK C8, BYTE 
BUF2 : VECTOR (14, BYTE), 

RET_LENGTH; 


RRRRRRKRRKKRREKKREKRRRERPRRERRRRRRRRRR RRR REE 


ane 


Lea -_ 
' Be Se Se Se Oe Se Be Se Se Se Be Se Se Se Bs Ge Ge Se Ge Se Se Se Se Se Se Ge Se Ge Se Se Se Se Se Se Se Se Se Gs Se Se Se Se Se Se Se Se Ge Ge SeGe Ge Ge Ge Ge Ge eee 


“BASSCWP APPROX 


eat alwal eal eal eal eal eal eal al al oe ee ee et et ee 


—OODNAVL EW" OOONOUNE Ww 


46 


1 


'* 
: Call the formatter for each value to get two character strings. 


'¢ 


sc$x 
SC$K 
8 


r- 


1 Hee LENGTH) = 14; 


vunon 


_D 
C 


0, RET_LENGTH, DSC1); 
LENGTA; 


ale nnne SCWaqcVvlsO 
vnwnnw wr 


=PO0 
“s 
s 
TG 


‘tie 0. RET LENGTH, DSC2); 
Bsc> cv out LENGTH] = .RET_LENGTA; 


‘ If the two strings are equal, the values are approximately equal. 


8 
w$ep-1986 iisece? — EBASRIL SRESBASCMPAPP.6 


IF (.DSC1 COSCSW_LENGTH] NEQU .DSC2 COSC$W_LENGTH]) THEN RETURN (1); 
IF (CHSEQL (.RET_LENGTH, .DSC1 COSCSA_POINTER], .RET_LENGTH, .DSC2 CDSCSA_POINTER])) THEN RETURN (0); 


RETURN (1); 
END; ! end of BASSCMPG_APP 


001¢ 00000 .ENTRY BASSCMPG APP Save R2,R3,R4 
54 000000006 90 9E 00002 MOVAB BASSCVT_OUT_ R4 
5E C C2 00009 SUBL2 #60, SP~ 
C AE O10E000E 8F 00 0000C MOVL #17694734 asct 
0 AE 1€ AE 9E 00014 MOVAB BUFI, DSCI+4 
a 04 AC 7D 00019 MOVQ  VAL1_LO, G_VALUE 
et AE 9F OOOTE PUSHAB 
4 AE 9F 00021 PUSHAB RET_LENGTH 
7E D4 00024 CLRL 7 (SP) 
40 AE OF 909 6 PUSHAB LUE 
64 04 FB 00029 CALLS oe. “BASsevT _OUT_G_G 
2c AE 6E BO 0002C MOVW 3s RET LE NTH, DSCT 
14 AE O10EQO00E 8F D0 000 #17694734 pseo 
18 AE 04 AE 9€E 000 MOVAB BUF alte 
34 AE 0C aC 7D 000 VAL2_LO, G_VALUE 
14 AE 9F 0004 PUSHAB D 
04 AE 9F 0004 PUSHAB RET LENGTH 
7E p4 0048 CLRL (SP) 
40 AE 9F OO04A PUSHAB LUE 
64 04 FB 0040 CALLS br. MBASSCVT _OUT_G_G 
16 AE 6— B0 00050 MOVW RET_LENGTH,~DSC2 


a82:1 


0465 


‘peggy -srrvon iesetage QO:88:2) HAIGHT SLeNGRE MSTA. 


16 AE 2c o6 9) 036 a pscl. DSC2 
at 


18 BE 30 —s«BE CMPC3 RET_LENGTH, @DSC1*4, aDSC2+4 
0061 BEQL 2$ 
50 01 D0 00063 1$: MOVL wi, RO 
4 pees RET 
50 D4 00067 2$: CLRL RO 
04 00069 RET 


3 Routine Size: 106 bytes, Routine Base: _BASSCODE + O0DC 


f 


i 
| 
| 
| 


Brita, 


ret Bliss-32 V4.0-74 
BASRTL.SRCJBASCMPAPP ..B 


are h floating values 
rst value to compare 


! Second value to compare 


If the values will PRINT the same 


This function is useful 
If the two values 


Kk 8 
ASSCMP_APPROX 16-Sep-19 
tits 14 at 
5 74 GLOBAL a BASSCMPH_APP ( ‘¢ 
75 VAL ' Ff 
7 VAL1 
7 VAL1 
8 47 VAL1 
90 7 VAL 
91 VAL 
38 : VAtS=$5 
= 
34 : 
95 44 
38 ? 5 FUNCTIONAL DESCRIPTION: 
98 Compares two h floating values. vy, 
99 they are considered ‘‘approximately equal". 
400 in Computer Assisted Education applications, when one value is 
401 490 computed and another is read from the terminal. 
$08 91 print the same we do not want to say: ‘Wrong! You typed x, correct 
40 3 answer is x."’ 
404 9 
$83 CALLING SEQUENCE: 
Of MOVH VAL2, =(SP) 
MOVH VAL1, (SP) 
CALLS #4, BASSCMPH_APP 
TSTL RO 
BEQL 1$ 


FORMAL PARAMETERS: 


€ 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
: VALI.rh.v 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 


WESRENLSSSLESE 


EXER a tk a kk tt 8 ht et a ot as 4 5 9 a 2 ss 9 5 a st tt 


Be Se Se Se Se Ge Se Ge Be Se Be Ge Se Se Ge Ge Se Ge Ge Se Ge Fe Se Se Ge Se Fe Ge Se Se Ge Ge Ge Ge Se Ge Se Ge Se Se Se Se Se Ge Se Se Ge Se Ge Se Se Ge Ge Ge Ge Ge Ge 


40 04 

408 04 

409 04 

410 04 

411 82 

ry 5 

41 05 

414 05 

415 05 

416 05 VAL2.rh.v 
417 05 

418 050 IMPLICIT INPUTS: 
419 0508 

420 0509 NONE 

421 0510 

4 § 0511 IMPLICIT OUTPUTS: 
4 Balg 

424 051 NONE 

425 0514 

426 0515 ROUTINE VALUE: 
427 B18 COMPLETION CODES: 
428 B3! 

429 218 1 = not approximately equal, 
4 051 0 = approximately equal. 
431 0520 

$38 0521 SIDE EFFECTS: 

43 Be ¢ 

434 5 NONE 

435 0524 

436 525 -- 

437 5 $ 

438 5 BEGIN 

439 528 

440 0529 LOCAL 

441 0530 H_VALUE : VECTOR (4), 


: Branch if VAL1 == VAL2 


The first value to compare 
The second value to compare 


$251 


Pa 13 
- (6) 


r 


8 
‘BASSCHP_APPROK ISzSep-1984 00:98:28 WANeIT BLiss=82 -4.0-742, Page 14 


3: 46 1 DSC] : BLOCK C 40"! €) 
3; 46 ¢ BUF1 : V TOR BYTé), 
: 446 DSC2 : BLOCK C as it 
3 445 BUFe 2 VECTOR {4, eyTél, 
3 4 5 RET_LENGTH; 
: 66 
; 44 '¢ 
3 ret 5 ; Call the formatter for each value to get two character strings. 
; (451 228 psc1 bscsu -LENGTH = 14; 
: 6 é 541 DSC1 [DSCSB-DTY Pel = DSC$K_DTYPE_T; 
; 45 4¢ DSC1 atte CLASS) = DSCSK-CLASS—S; 
: 454 4 DSC1 CDSCSATPOINTER) = BUFT; 
: 655 544 H_VALUE [0J7= .VAL1_0; 
3 (45 545 H-VALUE (1) = .VALI“1; 
; 45 546 H_ VALUE ¢ s VALI ¢3 
: 458 547 H~ VALUE = .VAL1"3: 
3: 459 0548 eksscyt OUT_H_G (H_VALUE, 0, RET_LENGTH, DSC1); 
3 460 0349 , _ DSC1 COSCSWILENGTHI = »RET_LENGTA; 
: 46 0551 DSC2 CDSC$W_LENGTH) = 
: 46 0938 DSCe CDSC$B~ =brveed = pscéx _DTYPE_T 
3 464 05 DSCe CDSCSB-CLASS] = DSCSK~CLASS— 5: 
: 465 0554 DSC2 CDSCSA-POINTER] = BUF2; 
: 666 0555 H_VALUE (OJ7= .V : 
: 467 0556 HIVALUE C1] = .VALO71; 
: 468 0557 H-VALUE @] = = .VALO72; 
3: 469 0558 LUE VAL 2n 3 
: 470 0559 BASSCyT OUT H 6 (H_DALUE, e. RET_LENGTH, DSC2); 
; 47) 9360 ei DSC2 COSC$w- LENGTHY = .RET_LENGTA; 
: 47 056 _If the two strings are equal, the values are approximately equal. 
a Sy et eae wee! 
3 476 0365 IF (.DSC1 COSCSW_LENGTH] NEQU .DSC2 CDSC$W_LENGTH]) THEN RETURN (1); 
; 478 0367 IF (CHSEQL (.RET_LENGTH, .DSC1 CDSCSA_POINTER], .RET_LENGTH, .DSC2 CDSCSA_POINTER])) THEN RETURN (0); 
: 480 0569 RETURN (1); 
3; 481 0570 1 END; ! end of BASSCMPH_APP 
001C 00000 -ENTRY BASSCMPH [are Seve R2,R3,R4 : 0474 
54 000000006 00 9€E 0000 MOVAB BA scvt _OUT_H_G, R4 : 
E BC AE 9E 0000 MOVAB -68(SP)> SP : 
C AE O1OEQOOE 8F p 00 MOVL #7694784, DSsc1 > 0540 
0 AE 1€ AE 9€ 0001 MOVAB ®BUFI, DS ci “4 : 0543 
ts 04 AC 7D OOO1A MOVa ‘VALI 9. LUE > 0544 
C AE OC AC 7D O001F MOVQ  VALI~2, H ~VALUE #8 : 0546 
eC AE 9F 00024 PUSHAB 1” > 0548 
4 AE 9F 00027 PUSHAB RET LENGTH ; 
7E D4 OO02A CLRL =—s_ = (SP) ; 
40 AE 99F ONO2C PUSHAB H_VALUE ; 
| 64 04 FB CO02F CALLS #&%, BASSCVT_OUT_H_G ; 
| 


MP_APPROX 1-56 -1984 8: AX-11 Bliss-32 V4.0 P 15 
eae 1eaSep=1984 Vi:sese? — EBASRTL SRESBASCMPAPP. B52; 1 a a 
| 
| C AE E 80 000 MOV ENGTH. DSC1 7 0549 
| f AE O1OEQ00E BF : 0 move. #iTBbRy 4 $e : 0551 
| 18 AE 4 AE 9 9 MOVAB BUF2, DS Ste Ry 3 0554 
| 3 AE 4 AC 20 0004 MOV VAL2_0, H_VALUE + 0555 
| C AE 1¢ AC D 0004 mMOva VAL2. ‘ _H ~ VALUE +8 3; 0557 
| 14 AE 9F 00040 PUSHAB D : 0559 
06 AE OF 005 PUSHAB RET LENGTH : 
7E 04 0005 CLRL (SP) : 
| 40 AE 9F 0005 PUSHAB LUE F 
64 04 FB 00058 CALLS” ao. “Bassey _OUT_H_G : 
14 AE 6€ 80 00058 MOVW RET LENGTH, ~DSC2 ; 0560 
14 AE 2c OA O05 CMPW pscTe DSc2 : 0565 
| 0 0064 BNEQ 1 : 
00066 CMPC3  RET_LENGTH, @DSC1+4, aDsc2+4 : 0567 
0006C BEQL = 2 F 
O006E 18: MOVL #1, RO : 0569 
0007 RET : 
56 04 00072 2: CLRL = RO : 0570 
00074 RET 3 


3; Routine Size: 117 bytes, Routine Base: _BASSCODE + 0146 


; 48 0571 +1 

; 48 b2¢ 1 END ! end of module BASSCMP_APPROX 
> 484 0573 «(1 

; 4485 0574 0 ELUDOM 

; PSECT SUMMARY 

: Name Bytes Attributes 

3 BASSCODE 443 NOVEC.NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 

‘Sa aie cage Mae, A Symbols -------- Pages Processing 

$ File Total Loaded Percent Mapped Time 

3 _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 6 0 581 00:01.1 


81 

1 
18 BE 30 —s«#BE 6E 25 
04 13 
50 01 00 

0 
; COMMAND QUALIFIERS 


o-oo 


va. rem 1ESeor198e O0:08:28 YARN OLS Rega we OeTee er 


praesent tet ttt attire tela MSRC$:BASCMPAPP/UPDATE =(ENHS$:BASCMPAPP 


; Size: 443 code + 0 data bytes 


; Run Time 

3; Elapsed Tine: 00:48. oF 
3 Lines/CPU Min: 8 

; Lexemes/CPU-Min: 22290 
; Memory Used: 66 pages 


; Compilation. Complete 


MENT CORPORATION 
SPRL A et 9 Na 


e 
A 


AH-BT13A-SE 
VAX/VMS V4.0 


0020 


